home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / CERTCKPN.AS_ / certckpn.asp
Encoding:
Text File  |  2003-02-21  |  5.9 KB  |  149 lines
  1. ∩╗┐<%@ CODEPAGE=65001 'UTF-8%>
  2. <%' certckpn.asp - (CERT)srv web - (C)hec(K) (P)e(N)ding certificates
  3.   ' Copyright (C) Microsoft Corporation, 1998 - 1999 %>
  4. <%Response.Expires=-1%>
  5. <%'Stop%>
  6. <!-- #include FILE=certsbrt.inc -->
  7. <!-- #include FILE=certsrck.inc -->
  8. <!-- #include FILE=certdat.inc -->
  9. <HTML>
  10. <Head>
  11.     <Meta HTTP-Equiv="Content-Type" Content="text/html; charset=UTF-8">
  12.     <Title>Microsoft Certificate Services</Title>
  13. </Head>
  14. <Body BgColor=#FFFFFF Link=#0000FF VLink=#0000FF ALink=#0000FF><Font ID=locPageFont Face="Arial">
  15.  
  16.  
  17. <Table Border=0 CellSpacing=0 CellPadding=4 Width=100% BgColor=#008080>
  18. <TR>
  19.     <TD><Font Color=#FFFFFF><LocID ID=locMSCertSrv><Font Face="Arial" Size=-1><B><I>Microsoft</I></B> Certificate Services  --  <%=sServerDisplayName%>  </Font></LocID></Font></TD>
  20.     <TD ID=locHomeAlign Align=Right><A Href="/certsrv"><Font Color=#FFFFFF><LocID ID=locHomeLink><Font Face="Arial" Size=-1><B>Home</B></Font></LocID></Font></A></TD>
  21. </TR>
  22. </Table>
  23.  
  24. <P ID=locPageTitle> <B> View the Status of a Pending Certificate Request </B>
  25. <!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
  26.  
  27.  
  28. <%
  29.     ' fill the list box with pending request entries
  30.  
  31.     ' get the list of requests from the cookie
  32.     Dim rgRequests, nIndex
  33.     ' GetRequests returns an array of requests whose text is encoded - safe against CSS attacks
  34.     rgRequests=GetRequests(True)
  35.     
  36.     ' are there any requests?
  37.     If IsNull(rgRequests) Then
  38.         'No pending requests (that we know of)
  39. %>
  40. <P ID=locNoPend> You have no pending certificate requests.
  41. </P>
  42.  
  43. <!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
  44. <!-- White HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#FFFFFF><Img Src="certspc.gif" Alt="" Height=5 Width=1></TD></TR></Table>
  45. <%
  46.     Else
  47.         ' Yes, there are requests
  48. %>
  49.  
  50. <P ID=locSelectCert> Select the certificate request you want to view:
  51.  
  52. <%If "Text"=sBrowser Then%>
  53. <DL>
  54. <%
  55.         ' loop over all the requests in the request array
  56.         For nIndex=0 To UBound(rgRequests)
  57.             ' add button for this request
  58. %>
  59. <DD><Form Name=SubmittedData Action="certfnsh.asp" Method=Post>
  60.     <Input Type=Hidden Name=Mode Value="chkpnd">
  61.     <Input Type=Hidden Name=ReqID Value="<%=rgRequests(nIndex)(FIELD_REQID)%>">
  62.     <Input Type=Hidden Name=TargetStoreFlags Value="<%=rgRequests(nIndex)(FIELD_TARGETSTOREFLAGS)%>">
  63.     <Input Type=Hidden Name=SaveCert Value="<%=rgRequests(nIndex)(FIELD_SAVECERT)%>">
  64.     <Input ID=locBtnSubmit Type=Submit Value="<%=rgRequests(nIndex)(FIELD_FRIENDLYTYPE)%>">
  65. </Form>
  66. <%
  67.         Next
  68. %>
  69. </DL>
  70. <%Else%>
  71. <Table Border=0 CellPadding=0 CellSpacing=0>
  72. <%
  73.         ' loop over all the requests in the request array
  74.         For nIndex=0 To UBound(rgRequests)
  75.             ' add a link for this request
  76. %>
  77.     <TR><TD ID=locSpc2 Colspan=2><Img Src="certspc.gif" Alt="" Height=3 Width=1></TD></TR>
  78.     <TR>
  79.         <TD ID=locSpc1><Img Src="certspc.gif" Alt="" Height=1 Width=20></TD>
  80.         <%If "IE"=sBrowser Then%>
  81.         <TD><Font ID=locLinkFont1 Face="Arial">
  82.             <Span tabindex=0 Style="cursor:hand; color:#0000FF; text-decoration:underline;"
  83.                 OnContextMenu="return false;"
  84.                 OnMouseOver="window.status='<%=Replace(rgRequests(nIndex)(FIELD_FRIENDLYTYPE), "'", "'")%>'; return true;" 
  85.                 OnMouseOut="window.status=''; return true;" 
  86.                 OnKeyDown="if (13==event.keyCode) {CheckPending2('<%=rgRequests(nIndex)(FIELD_REQID)%>', '<%=rgRequests(nIndex)(FIELD_TARGETSTOREFLAGS)%>', '<%=rgRequests(nIndex)(FIELD_SAVECERT)%>');return false;} else if (9==event.keyCode) {return true;};return false;"
  87.                 OnClick="CheckPending2('<%=rgRequests(nIndex)(FIELD_REQID)%>', '<%=rgRequests(nIndex)(FIELD_TARGETSTOREFLAGS)%>', '<%=rgRequests(nIndex)(FIELD_SAVECERT)%>');return false;"
  88.                 ><%=rgRequests(nIndex)(FIELD_FRIENDLYTYPE)%></Span>
  89.         </Font></TD>
  90.         <%Else%>
  91.         <TD><Font ID=locLinkFont2 Face="Arial">
  92.             <A Href="#" 
  93.                 OnContextMenu="return false;"
  94.                 OnMouseOver="window.status='<%=Replace(rgRequests(nIndex)(FIELD_FRIENDLYTYPE), "'", "'")%>'; return true;" 
  95.                 OnMouseOut="window.status=''; return true;" 
  96.                 OnClick="CheckPending2('<%=rgRequests(nIndex)(FIELD_REQID)%>', '<%=rgRequests(nIndex)(FIELD_TARGETSTOREFLAGS)%>', '<%=rgRequests(nIndex)(FIELD_SAVECERT)%>');return false;"
  97.                 ><%=rgRequests(nIndex)(FIELD_FRIENDLYTYPE)%></A>
  98.         </Font></TD>
  99.         <%End If%>
  100.     </TR>
  101. <%
  102.         Next
  103. %>
  104. </Table>
  105. <%End If%>
  106.  
  107. </P>
  108.  
  109. <!-- Green HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#008080><Img Src="certspc.gif" Alt="" Height=2 Width=1></TD></TR></Table>
  110. <!-- White HR --><Table Border=0 CellSpacing=0 CellPadding=0 Width=100%><TR><TD BgColor=#FFFFFF><Img Src="certspc.gif" Alt="" Height=5 Width=1></TD></TR></Table>
  111.  
  112.  
  113.  
  114. <%
  115.     End If
  116. %>
  117. </Font>
  118. <!-- ############################################################ -->
  119. <!-- End of standard text. Scripts follow  -->
  120.  
  121. <%If "Text"=sBrowser Then%>
  122. <!-- No Scripts -->
  123. <%Else%>
  124. <!-- This form we fill in and submit 'by hand'-->
  125. <Form Name=SubmittedData Action="certfnsh.asp" Method=Post>
  126.     <Input Type=Hidden Name=Mode>             <!-- used in request ('newreq'|'chkpnd') -->
  127.     <Input Type=Hidden Name=ReqID>            <!-- used in request -->
  128.     <Input Type=Hidden Name=TargetStoreFlags> <!-- used on install ('0'|CSSLM)-->
  129.     <Input Type=Hidden Name=SaveCert>         <!-- used on install ('no'|'yes')-->
  130. </FORM>
  131.     
  132. <Script Language="JavaScript">
  133.  
  134.  
  135.     function CheckPending2(sReqID, sTargetStoreFlags, sSaveCert) {
  136.         // fill out the submission form
  137.         document.SubmittedData.Mode.value='chkpnd';
  138.         document.SubmittedData.ReqID.value=sReqID;
  139.         document.SubmittedData.TargetStoreFlags.value=sTargetStoreFlags;
  140.         document.SubmittedData.SaveCert.value=sSaveCert;
  141.         
  142.         // Submit the cert request and move forward in the wizard
  143.         document.SubmittedData.submit();
  144.     }
  145. </Script>
  146. <%End If%>
  147.  
  148. </Body>
  149. </HTML>